home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Revista CD Expert 33
/
PCGamer33_OddworldAbesExoddus_CD2.iso
/
Desafios
/
Driver Editor
/
DriverMission.exe
/
0
/
RCDATA
/
TFRMSOUND
/
TFRMSOUND.txt
< prev
Wrap
Text File
|
1999-11-12
|
17KB
|
523 lines
object frmSound: TfrmSound
Left = 339
Top = 383
Width = 576
Height = 395
Caption = 'Sounds Manager'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Icon.Data = {<image000.ico>}
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 16
object sbSound: TStatusBar
Left = 0
Top = 349
Width = 568
Height = 19
Panels = <>
SimplePanel = True
end
object pnlSoundTop: TPanel
Left = 0
Top = 0
Width = 568
Height = 38
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object lblSoundBank: TLabel
Left = 8
Top = 10
Width = 84
Height = 16
Caption = 'Sound Bank'
end
object cbBankSound: TComboBox
Left = 112
Top = 7
Width = 185
Height = 24
ItemHeight = 16
TabOrder = 0
Text = 'cbBankSound'
OnClick = cbBankSoundClick
end
object pnlTopSoundBankRight: TPanel
Left = 464
Top = 0
Width = 104
Height = 38
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object sbRestSound: TSpeedButton
Left = 3
Top = 11
Width = 97
Height = 15
Hint = 'Restore this sound bank to its default'
Caption = '&Restore to default'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = sbRestSoundClick
end
end
end
object pnlSountBottom: TPanel
Left = 0
Top = 316
Width = 568
Height = 33
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
object btnCancel: TBitBtn
Left = 16
Top = 5
Width = 75
Height = 25
Hint = 'Cancel the change '
Cancel = True
Caption = '&Cancel'
ModalResult = 2
TabOrder = 0
OnClick = btnCancelClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object pnlSoundButtonRight: TPanel
Left = 398
Top = 1
Width = 169
Height = 31
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object btnClose: TBitBtn
Left = 84
Top = 3
Width = 75
Height = 25
Caption = 'Cl&ose'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 1
ParentFont = False
TabOrder = 0
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object btnSave: TBitBtn
Left = 3
Top = 3
Width = 75
Height = 25
Caption = '&Save'
Default = True
TabOrder = 1
OnClick = btnSaveClick
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end
object btnUnsetSound: TBitBtn
Left = 187
Top = 4
Width = 86
Height = 25
Hint = 'Select no sound '
Caption = '&No Sound'
Default = True
ModalResult = 6
TabOrder = 2
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333FFF33FF333FFF339993370733
999333777FF37FF377733339993000399933333777F777F77733333399970799
93333333777F7377733333333999399933333333377737773333333333990993
3333333333737F73333333333331013333333333333777FF3333333333910193
333333333337773FF3333333399000993333333337377737FF33333399900099
93333333773777377FF333399930003999333337773777F777FF339993370733
9993337773337333777333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
end
object pnlSoundClient: TPanel
Left = 0
Top = 68
Width = 568
Height = 248
Align = alClient
TabOrder = 3
object spltSound: TSplitter
Left = 282
Top = 1
Width = 3
Height = 246
Cursor = crHSplit
Align = alRight
end
object pnlSoundRight: TPanel
Left = 285
Top = 1
Width = 282
Height = 246
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object lblVolume: TLabel
Left = 8
Top = 154
Width = 53
Height = 16
Caption = 'Volume'
end
object lblPriority: TLabel
Left = 8
Top = 199
Width = 50
Height = 16
Caption = 'Priority'
end
object lblFrequency: TLabel
Left = 8
Top = 114
Width = 74
Height = 16
Caption = 'Frequency'
end
object spReplace: TSpeedButton
Left = 153
Top = 244
Width = 24
Height = 24
Hint = 'Select another sound from a file'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFF3333F333333300033039333333338883F33833333330007009
333333333838F8F38333333308087099339933338338383F3338333088070999
99033338F38F338F3383333088009999990333F8338FF38F3833300888099999
9903388F33883F8F833308077700999999038F8F338F8F8F3FFF080888070999
99098F8F338F8F8F88880707770700993333838F338F838F3F33300777007709
33333883F388338F83F333307708770039333338F38F338F383F333077088703
339333383F83F38333833333078888333339333383F8F8F33F38333330708033
933333333838F83383F333333300033339333333338883333833}
NumGlyphs = 2
OnClick = spReplaceClick
end
object lblVolumeNo: TLabel
Left = 232
Top = 154
Width = 13
Height = 16
Caption = '...'
end
object lblPriorityNo: TLabel
Left = 232
Top = 200
Width = 13
Height = 16
Caption = '...'
end
object lblSoundId: TLabel
Left = 5
Top = 13
Width = 70
Height = 16
Caption = 'Sound Id :'
end
object lblSoundIdNo: TLabel
Left = 78
Top = 13
Width = 25
Height = 16
Caption = '999'
end
object Label1: TLabel
Left = 8
Top = 248
Width = 128
Height = 16
Caption = 'Change this sound'
end
object cbLoop: TCheckBox
Left = 8
Top = 48
Width = 97
Height = 17
Hint = 'Sound will loop'
Caption = 'Loop'
TabOrder = 0
OnClick = PostSoundNo
end
object cb2d: TCheckBox
Left = 8
Top = 80
Width = 97
Height = 17
Hint = 'Sound does not require a 3D buffer.'
Caption = '2D Sound'
TabOrder = 1
OnClick = PostSoundNo
end
object cbFreq: TComboBox
Left = 96
Top = 112
Width = 121
Height = 24
Hint = 'Set to Frequency'
ItemHeight = 16
TabOrder = 2
Text = 'cbFreq'
OnChange = PostSoundNo
Items.Strings = (
'From File'
'11025'
'22050'
'44100')
end
object tbVolume: TTrackBar
Left = 85
Top = 150
Width = 140
Height = 33
Hint = 'Set Volume from Silence to maximum'
Max = 10000
Orientation = trHorizontal
Frequency = 1000
Position = 0
SelEnd = 0
SelStart = 0
TabOrder = 3
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = tbVolumeChange
end
object tbPriority: TTrackBar
Left = 85
Top = 195
Width = 140
Height = 33
Hint = 'Set priority to play sound (239 is default)'
Max = 255
Orientation = trHorizontal
Frequency = 20
Position = 0
SelEnd = 0
SelStart = 0
TabOrder = 4
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = tbPriorityChange
end
end
object pnlListSoundClient: TPanel
Left = 1
Top = 1
Width = 281
Height = 246
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object pnlListSoundBot: TPanel
Left = 0
Top = 205
Width = 281
Height = 41
Align = alBottom
BevelOuter = bvNone
TabOrder = 0
object mpSound: TMediaPlayer
Left = 10
Top = 6
Width = 141
Height = 30
EnabledButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack, btEject]
VisibleButtons = [btPlay, btPause, btStop, btNext, btPrev]
TabOrder = 0
OnPostClick = mpSoundPostClick
end
object pnlSoundId: TPanel
Left = 170
Top = 0
Width = 111
Height = 41
Align = alRight
BevelOuter = bvNone
TabOrder = 1
object sbAddText: TSpeedButton
Left = 46
Top = 10
Width = 24
Height = 24
Hint = 'Add a new sound in the list'
Glyph.Data = {
E6000000424DE60000000000000076000000280000000E0000000E0000000100
0400000000007000000000000000000000001000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3300333333333333330033333333333333003333300033333300333330F03333
3300333330F033333300330000F000033300330FFFFFFF033300330000F00003
3300333330F033333300333330F0333333003333300033333300333333333333
33003333333333333300}
OnClick = sbAddTextClick
end
object sbDelMessage: TSpeedButton
Left = 83
Top = 10
Width = 24
Height = 24
Hint = 'Clear this sound from the list'
Glyph.Data = {
E6000000424DE60000000000000076000000280000000E0000000E0000000100
0400000000007000000000000000000000001000000000000000000000000000
BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3300333333333333330033333333333333003333333333333300333333333333
330033333333333333003300000000003300330FFFFFFFF03300330000000000
3300333333333333330033333333333333003333333333333300333333333333
33003333333333333300}
OnClick = sbDelMessageClick
end
object sbPrevious: TSpeedButton
Left = 7
Top = 10
Width = 24
Height = 24
Hint = 'Go to my sound'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F
00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F
00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00
F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0
F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF
FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF
0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF
00337777FFFF77FF7733EEEE0000000003337777777777777333}
NumGlyphs = 2
OnClick = sbPreviousClick
end
end
end
object tlbSound: TListBox
Left = 0
Top = 0
Width = 281
Height = 205
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 1
OnClick = tlbSoundClick
end
end
end
object pnlMessage: TPanel
Left = 0
Top = 38
Width = 568
Height = 30
Align = alTop
BevelOuter = bvNone
TabOrder = 4
object lblSoundText: TLabel
Left = 8
Top = 9
Width = 13
Height = 16
Caption = '...'
end
end
object odWav: TOpenDialog
DefaultExt = '.wav'
Filter = 'Wave files (*.wav)|*.wav|All files (*.*)|*.*'
Left = 344
Top = 328
end
end